﻿Imports System.Windows.Forms

Public Class mdiPrincipal
    Private Sub tsmiSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiSalir.Click
        lfrmIniciasesion.Close()
        Me.Close()
    End Sub

    Private Sub tsmiCiudad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiCiudad.Click
        Dim frmCiudad As New frmMCiudad
        Me.tsmiCiudad.Enabled = False
        frmCiudad.MdiParent = Me
        frmCiudad.Show()
    End Sub

    Private Sub tsmiCorregimiento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiCorregimiento.Click
        Dim frmCorregimiento As New frmMCorregimiento
        Me.tsmiCorregimiento.Enabled = False
        frmCorregimiento.MdiParent = Me
        frmCorregimiento.Show()
    End Sub

    Private Sub tsmiDepartamento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiDepartamento.Click
        Dim frmDepartamento As New frmMDepartamento
        Me.tsmiDepartamento.Enabled = False
        frmDepartamento.MdiParent = Me
        frmDepartamento.Show()
    End Sub

    Private Sub tsmiRestricciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiRestricciones.Click
        Dim frmRestriccion As New frmMRestriccion
        Me.tsmiRestricciones.Enabled = False
        frmRestriccion.MdiParent = Me
        frmRestriccion.Show()
    End Sub

    Private Sub tsmiRH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiRH.Click
        Dim frmRh As New frmMRh
        Me.tsmiRH.Enabled = False
        frmRh.MdiParent = Me
        frmRh.Show()
    End Sub


    Private Sub tsmiEstadoDeAprobacionExamen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEstadoDeAprobacionExamen.Click
        Dim frmEstadosaprovacionexamenes As New frmMEstadosaprovacionexamenes
        Me.tsmiEstadoDeAprobacionExamen.Enabled = False
        frmEstadosaprovacionexamenes.MdiParent = Me
        frmEstadosaprovacionexamenes.Show()
    End Sub

    Private Sub tsmiSexo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiSexo.Click
        Dim frmSexo As New frmMSexo
        Me.tsmiSexo.Enabled = False
        frmSexo.MdiParent = Me
        frmSexo.Show()
    End Sub

    Private Sub tsmiTipoDeIdentificacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTipoDeIdentificacion.Click
        Dim frmTipoidentificacion As New frmMTipoIdentificacion
        Me.tsmiTipoDeIdentificacion.Enabled = False
        frmTipoidentificacion.MdiParent = Me
        frmTipoidentificacion.Show()
    End Sub

    Private Sub tsmiTipoDeSangre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTipoDeSangre.Click
        Dim frmTiposangre As New frmMTipoSangre
        Me.tsmiTipoDeSangre.Enabled = False
        frmTiposangre.MdiParent = Me
        frmTiposangre.Show()
    End Sub

    Private Sub tsmiTipoDeServicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTipoDeServicio.Click
        Dim frmTiposervicio As New frmMTipoServicio
        Me.tsmiTipoDeServicio.Enabled = False
        frmTiposervicio.MdiParent = Me
        frmTiposervicio.Show()
    End Sub


    Private Sub tsmiEspecialidadMedica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEspecialidadMedica.Click
        Dim frmEspecialidadmedica As New frmMEspecialidadmedica
        Me.tsmiEspecialidadMedica.Enabled = False
        frmEspecialidadmedica.MdiParent = Me
        frmEspecialidadmedica.Show()
    End Sub

    Private Sub tsmiTramite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTramite.Click
        Dim frmTramite As New frmMTramite
        Me.tsmiTramite.Enabled = False
        frmTramite.MdiParent = Me
        frmTramite.Show()
    End Sub

    Private Sub tsmiTipoDeElemento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTipoDeElemento.Click
        Dim frmTipoelemento As New frmMTipoelemento
        Me.tsmiTipoDeElemento.Enabled = False
        frmTipoelemento.MdiParent = Me
        frmTipoelemento.Show()
    End Sub

    Private Sub tsmiCategoria_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiCategoria.Click
        Dim frmCategoria As New frmMCategoria
        Me.tsmiCategoria.Enabled = False
        frmCategoria.MdiParent = Me
        frmCategoria.Show()
    End Sub

    Private Sub tsmiAlias_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiAlias.Click
        Dim frmAlias As New frmMAlias
        Me.tsmiAlias.Enabled = False
        frmAlias.MdiParent = Me
        frmAlias.Show()
    End Sub

    Private Sub tsmiNivelDeEscolaridad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiNivelDeEscolaridad.Click
        Dim frmNivelescolaridad As New frmMNivelescolaridad
        Me.tsmiNivelDeEscolaridad.Enabled = False
        frmNivelescolaridad.MdiParent = Me
        frmNivelescolaridad.Show()
    End Sub

    Private Sub tsmiNivel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiNivel.Click
        Dim frmNivel As New frmMNivel
        Me.tsmiNivel.Enabled = False
        frmNivel.MdiParent = Me
        frmNivel.Show()
    End Sub

    Private Sub tsmiPersona_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiPersona.Click
        Dim frmPersona As New frmPersona
        Me.tsmiPersona.Enabled = False
        frmPersona.MdiParent = Me
        frmPersona.Show()
    End Sub

    Private Sub tsmiOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiOptions.Click
        Dim frmOpciones As New frmOpciones
        Me.tsmiOptions.Enabled = False
        frmOpciones.MdiParent = Me
        frmOpciones.Show()
    End Sub

    Private Sub mdiPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mdlHerramientas.loadOption()


        'Dim dstRecord As New DataSet
        'dstRecord.Tables.Add("Foto")

        'mdlConexion.blnOnDB = True
        'mdlConexion.conexion()
        'mdlCRUD.loadRecord(dstRecord, "Foto", "fotoaspirante", "fotoaspirante_id = '1'", Nothing)

        'Dim arrRow As Array
        'Dim snombreHizq As String = "hizqTOTOMADERO_5555.jpg"

        'arrRow = dstRecord.Tables("Foto").Rows(0).ItemArray.ToArray

        'mdlIntegracion.grabaBase64ToImage(arrRow(2), snombreHizq, mdlHerramientas.strRutafotografia)

        'mdlConexion.blnOnDB = False

    End Sub

    Private Sub tsmiRegistraraspirante_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiRegistraraspirante.Click
        Dim frmConultar As New frmConsultaraspirante
        Me.tsmiRegistraraspirante.Enabled = False
        frmConultar.MdiParent = Me
        frmConultar.Show()
    End Sub

    Private Sub tsmiRealizarprueba_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiRealizarprueba.Click
        Dim frmConultar As New frmConsultarasprueba
        Me.tsmiRealizarprueba.Enabled = False
        frmConultar.MdiParent = Me
        frmConultar.Show()
    End Sub

    Private Sub tsmiCategoriaws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiCategoriaws.Click
        Dim frmMCategoriaws As New frmMCategoriaws
        Me.tsmiCategoriaws.Enabled = False
        frmMCategoriaws.MdiParent = Me
        frmMCategoriaws.Show()
    End Sub

    Private Sub tsmiTipoPruebas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTipoPruebas.Click
        Dim frmMTipoPrueba As New frmMTipoPrueba
        Me.tsmiTipoPruebas.Enabled = False
        frmMTipoPrueba.MdiParent = Me
        frmMTipoPrueba.Show()
    End Sub

    Private Sub tsmiPruebas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiPruebas.Click
        Dim frmMPrueba As New frmMPrueba
        Me.tsmiPruebas.Enabled = False
        frmMPrueba.MdiParent = Me
        frmMPrueba.Show()
    End Sub

    Private Sub tsmiSeccion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiSeccion.Click
        Dim frmMSeccion As New frmMPruebaSeccion
        Me.tsmiSeccion.Enabled = False
        frmMSeccion.MdiParent = Me
        frmMSeccion.Show()
    End Sub

    Private Sub tsmiPreguntas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiPreguntas.Click
        Dim frmMPregunta As New frmMPregunta
        Me.tsmiPreguntas.Enabled = False
        frmMPregunta.MdiParent = Me
        frmMPregunta.Show()
    End Sub

    Private Sub tsmiEvaluacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEvaluacion.Click
        Dim frmEvaluaciones As New frmEvaluaciones
        Me.tsmiEvaluacion.Enabled = False
        frmEvaluaciones.Size = New System.Drawing.Size(1000, 600)
        GetEvaluacion(frmEvaluaciones, Nothing)
        frmEvaluaciones.MdiParent = Me
        frmEvaluaciones.Show()
    End Sub

    Private Sub tsmiResultados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiResultados.Click
        Dim frmMResultado As New frmMResultado
        Me.tsmiResultados.Enabled = False
        frmMResultado.MdiParent = Me
        frmMResultado.Show()
    End Sub

    Private Sub tsmiCiudadws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiCiudadws.Click
        Dim frmMCiudadws As New frmMCiudadws
        Me.tsmiCiudadws.Enabled = False
        frmMCiudadws.MdiParent = Me
        frmMCiudadws.Show()
    End Sub

    Private Sub tsmiEPSARPws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEPSARPws.Click
        Dim frmMEpsarpws As New frmMEpsarpws
        Me.tsmiEPSARPws.Enabled = False
        frmMEpsarpws.MdiParent = Me
        frmMEpsarpws.Show()
    End Sub

    Private Sub tsmiEstadoCivilws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEstadoCivilws.Click
        Dim frmMEstadocivilws As New frmMEstadocivilws
        Me.tsmiEstadoCivilws.Enabled = False
        frmMEstadocivilws.MdiParent = Me
        frmMEstadocivilws.Show()
    End Sub

    Private Sub tsmiEstadoExamenws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEstadoExamenws.Click
        Dim frmmEstadoexamenws As New frmMEstadoexamenws
        Me.tsmiEstadoExamenws.Enabled = False
        frmmEstadoexamenws.MdiParent = Me
        frmmEstadoexamenws.Show()
    End Sub

    Private Sub tsmiEstadoProcesows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEstadoProcesows.Click
        Dim frmMEstadoprocesows As New frmMEstadoprocesows
        Me.tsmiEstadoProcesows.Enabled = False
        frmMEstadoprocesows.MdiParent = Me
        frmMEstadoprocesows.Show()
    End Sub

    Private Sub tsmiGenerows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiGenerows.Click
        Dim frmMGenerows As New frmMGenerows
        Me.tsmiGenerows.Enabled = False
        frmMGenerows.MdiParent = Me
        frmMGenerows.Show()
    End Sub

    Private Sub tsmiGradoEscolaridadws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiGradoEscolaridadws.Click
        Dim frmMGradoescolaridadws As New frmMGradoescolaridadws
        Me.tsmiGradoEscolaridadws.Enabled = False
        frmMGradoescolaridadws.MdiParent = Me
        frmMGradoescolaridadws.Show()
    End Sub

    Private Sub tsmiGrupoSanguineows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiGrupoSanguineows.Click
        Dim frmMGruposanguineows As New frmMGruposanguineows
        Me.tsmiGrupoSanguineows.Enabled = False
        frmMGruposanguineows.MdiParent = Me
        frmMGruposanguineows.Show()
    End Sub


    Private Sub tsmiObjetivows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiObjetivows.Click
        Dim frmMObjetivows As New frmMObjetivows
        Me.tsmiObjetivows.Enabled = False
        frmMObjetivows.MdiParent = Me
        frmMObjetivows.Show()
    End Sub

    Private Sub tsmiOcupacionws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiOcupacionws.Click
        Dim frmMOcupacionws As New frmMOcupacionws
        Me.tsmiOcupacionws.Enabled = False
        frmMOcupacionws.MdiParent = Me
        frmMOcupacionws.Show()
    End Sub

    Private Sub tsmiPreguntasws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiPreguntasws.Click
        Dim frmMPreguntaws As New frmMPreguntaws
        Me.tsmiPreguntasws.Enabled = False
        frmMPreguntaws.MdiParent = Me
        frmMPreguntaws.Show()
    End Sub

    Private Sub tsmiTipoPreguntasws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTipoPreguntasws.Click
        Dim frmMTipopreguntaws As New frmMTipopreguntaws
        Me.tsmiTipoPreguntasws.Enabled = False
        frmMTipopreguntaws.MdiParent = Me
        frmMTipopreguntaws.Show()
    End Sub

    Private Sub tsmiResultadoExamenws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiResultadoExamenws.Click
        Dim frmMResultadoexamenws As New frmMResultadoexamenws
        Me.tsmiResultadoExamenws.Enabled = False
        frmMResultadoexamenws.MdiParent = Me
        frmMResultadoexamenws.Show()
    End Sub

    Private Sub tsmiRolEspecialistaws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiRolEspecialistaws.Click
        Dim frmMRolespecialistaws As New frmMRolespecialistaws
        Me.tsmiRolEspecialistaws.Enabled = False
        frmMRolespecialistaws.MdiParent = Me
        frmMRolespecialistaws.Show()
    End Sub

    Private Sub tsmiServiciows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiServiciows.Click
        Dim frmMServiciows As New frmMServiciows
        Me.tsmiServiciows.Enabled = False
        frmMServiciows.MdiParent = Me
        frmMServiciows.Show()
    End Sub

    Private Sub tsmiTipoIdentificacionws_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTipoIdentificacionws.Click
        Dim frmMTipoIdentificacionws As New frmMTipoIdentificacionws
        Me.tsmiTipoIdentificacionws.Enabled = False
        frmMTipoIdentificacionws.MdiParent = Me
        frmMTipoIdentificacionws.Show()
    End Sub

    Private Sub tsmiTramitews_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTramitews.Click
        Dim frmMTramitews As New frmMTramitews
        Me.tsmiTramitews.Enabled = False
        frmMTramitews.MdiParent = Me
        frmMTramitews.Show()
    End Sub

    Private Sub tsmiDepartamentows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiDepartamentows.Click
        Dim frmMDepartamentows As New frmMDepartamentows
        Me.tsmiDepartamentows.Enabled = False
        frmMDepartamentows.MdiParent = Me
        frmMDepartamentows.Show()
    End Sub

    Private Sub tsmiEstadoTramite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEstadoTramite.Click
        Dim frmMEstadoproceso As New frmMEstadoProceso
        Me.tsmiEstadoTramite.Enabled = False
        frmMEstadoproceso.MdiParent = Me
        frmMEstadoproceso.Show()
    End Sub

    Private Sub tsmiRol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiRol.Click
        Dim frmMRol As New frmMRol
        Me.tsmiRol.Enabled = False
        frmMRol.MdiParent = Me
        frmMRol.Show()
    End Sub

  
    Private Sub tsmiTurno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiTurno.Click
        Dim frmMTurno As New frmMTurno
        Me.tsmiTurno.Enabled = False
        frmMTurno.MdiParent = Me
        frmMTurno.Show()
    End Sub
    Private Sub tsmiEquipos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiEquipos.Click
        Dim frmMEquipo As New frmMEquipo
        Me.tsmiEquipos.Enabled = False
        frmMEquipo.MdiParent = Me
        frmMEquipo.Show()
    End Sub

    Private Sub tsmiUsuario_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiUsuario.Click
        Dim frmMUsuario As New frmMUsuario
        Me.tsmiUsuario.Enabled = False
        frmMUsuario.MdiParent = Me
        frmMUsuario.Show()
    End Sub
End Class
